From: Juri Linkov <juri@jurta.org>
Date: Sun, 14 Oct 2007 20:40:31 +0000 (+0000)
Subject: (describe-face): Allow handling a string as the face name.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~26460
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=faa3d27b587f0b0895158ab67c5620a778099389;p=emacs.git

(describe-face): Allow handling a string as the face name.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 2e4791358dd..c6f80f7f5b0 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1285,6 +1285,7 @@ If FRAME is omitted or nil, use the selected frame."
       (save-excursion
 	(set-buffer standard-output)
 	(dolist (f face)
+	  (if (stringp f) (setq f (intern f)))
 	  (insert "Face: " (symbol-name f))
 	  (if (not (facep f))
 	      (insert "   undefined face.\n")